home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / Area Codes.cpt / Area Codes / card_5379.txt < prev    next >
Text File  |  1990-05-08  |  3KB  |  96 lines
  1. -- card: 5379 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2114
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   checkDate
  9.   -- checkDate is written as a separate handler so it will work
  10.   -- with HyperDA which will skip it this way instead of going
  11.   -- into a loop
  12.   exit openCard
  13. end openCard
  14.  
  15. on checkDate
  16.   put the date into today
  17.   convert today to seconds
  18.   put "11/4/90" into effDate
  19.   convert effDate to seconds
  20.   if today ‚â• effDate and background field "Area Code" is "214" then
  21.     put "The 214 area code split into two area codes on 11/4/90"
  22.     answer "Create new 903 Area Code? (see msg box)" with Cancel or OK
  23.     if it is "Cancel" then exit checkDate
  24.     --temporairly change the AC as an update in progress indicator
  25.     put "214x" into field "Area Code"
  26.     set the script of this card to empty
  27.     -- user level must be ‚â• 3 (painting) to allow copy card
  28.     put the userLevel into saveULev
  29.     set the userLevel to 3
  30.     -- create a new card for the new area code
  31.     doMenu "Copy Card"
  32.     find "817" in field "Area Code"
  33.     doMenu "Paste Card"
  34.     set the userLevel to saveULev
  35.     put "903" into field "Area Code"
  36.     put "Texas, Tyler" into field "region"
  37.     -- find the first line of locations that go with new area code
  38.     find "Bonham,"
  39.     if fld "Area Code" is not "903" or the foundText is empty then
  40.       answer "Problem creating new Area code card"
  41.       exit checkDate
  42.     end if
  43.     -- delete locations above that are still in the old area code
  44.     put word 2 of the foundLine into tmp1
  45.     repeat tmp1 - 1 times
  46.       delete line 1 of field "locations"
  47.     end repeat
  48.     put return & "Note: This area code was split from the 214 area code in 1990" & return before line 2 of fld "locations"
  49.     -- find the old area code card
  50.     find "214x" in field "Area Code"
  51.     put "214" into field "Area Code"  --change back from 214x
  52.     -- delete locations below Note: that are in the new area code
  53.     find "Note:" in fld "locations"
  54.     if fld "Area Code" is not "214" or the foundText is empty then
  55.       answer "Problem editing Area code card"
  56.       exit checkDate
  57.     end if
  58.     put word 2 of the foundLine into tmp2
  59.     repeat with i = tmp2 to number of lines in fld "locations"
  60.       put empty into line i of field "locations"
  61.     end repeat
  62.   end if
  63. end checkDate
  64.  
  65.  
  66. -- part contents for background part 1
  67. ----- text -----
  68. 214
  69.  
  70. -- part contents for background part 2
  71. ----- text -----
  72. GMT -6 (Central)
  73.  
  74. -- part contents for background part 3
  75. ----- text -----
  76. Texas, Dallas
  77.  
  78. -- part contents for background part 4
  79. ----- text -----
  80. Dallas,  Garland, Grand Prairie, Highland Park, Irving, Mesquite, Plano, Richardson
  81.  
  82. Note: The following locations will move to new area code (903) on Nov. 4, 1990. 
  83.  
  84. Bonham, Carthage, Denison,  Greenville, Longview, Marshal, Mineola, Paris, Sherman, Sulphur Springs, Texarkana, Tyler
  85. Permissive dialing  will allow access by dialing either area code until 5/5/91.
  86.  
  87.  
  88.  
  89.  
  90. -- part contents for background part 14
  91. ----- text -----
  92. USA
  93.  
  94. -- part contents for background part 16
  95. ----- text -----
  96. 1